home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / RtFileReq.asc < prev    next >
Text File  |  1980-03-07  |  1KB  |  50 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 1.4/@1995-96    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Rt Lib Open
  13. '  -Rt File Req
  14. '  -Rt Get Name$ 
  15. '  -Rt Get Dir$
  16. '  -Rt Lib Close 
  17. '
  18. Screen Open 0,640,256,2,$8000
  19. Curs Off : Flash Off : Cls 0
  20. Colour 1,$FFF : Print 
  21. '
  22. Amos To Back 
  23. 'Ouverture de la reqTools.library
  24. E=Rt Lib Open
  25. 'Ouverture impossible
  26. If E=0 Then End 
  27. '
  28. 'Sauvegarde du 'PathAmos'
  29. _DIR$=Dir$
  30. 'Appel au FileRequester
  31. RR=Rt File Req("Selectionnez un fichier SVP...",_DIR$,"Sans nom...","",2)
  32. '
  33. 'Ok=1 / Cancel/Erreur/CloseGadget=0
  34. If RR=1
  35. Print "Bouton 'Ok' selectionné"
  36. Print "Fichier:";Rt Get Name$
  37. Else 
  38. Print "Bouton 'Cancel' selectionné"
  39. End If 
  40. '
  41. 'Replacer le 'PathAmos'
  42. Dir$=Rt Get Dir$
  43. Print 
  44. Print "Repertoire:";Dir$
  45. '
  46. 'Refermer la librairie 
  47. Rt Lib Close 
  48. Amos To Front 
  49. Wait Key 
  50.